home *** CD-ROM | disk | FTP | other *** search
- MainFrame
- VisualTools Formula One Demo
- MDIForm158
- Picture1
- Timer1
- Panel3D5
- SSPanel#
- imgShape
- Image34
- imgShape
- Image30
- imgShape
- Image26
- imgShape
- Image22
- imgShape
- Image16
- imgShape
- Image18
- imgShape
- Image14
- imgEditPoly
- imgEditPolyMDS
- Panel3D4
- SSPanel#
- SSEdit1
- SSEdit
- SSEdit1
- RCLabel
- Row:Col
- MS Sans Serif
- Panel3D3
- SSPanel#
- cboSize
- cboFont
- imgAlign
- wwwwwwwwwwp
- wwwwwwwwwwp
- imgAlign
- wwwwwwwwwwp
- wwwwwwwwwwp
- imgAlign
- wwwwwwwwwwp
- wwwwwwwwwwp
- imgAlign
- imgFace
- wwwwwwwwwwp
- wwwwwwwwwwp
- imgFace
- wwwwwwwwwwp
- wwwwwwwwwwp
- imgFace
- wwwwwwwwwwp
- wwwwwwwwwwp
- imgFormatScientific
- Image41
- imgFormatFraction
- Image39
- imgFormatComma
- Image37
- imgFormatPercent
- Image35
- imgFormatCurrency
- Image33
- imgAlignDown
- wwwwwwwwwwp
- iimgAlignDown
- wwwwwwwwwwp
- imgAlignDown
- wwwwwwwwwwp
- imgFaceDown
- wwwwwwwwwwp
- imgFaceDown
- wwwwwwwwwwp
- imgFaceDown
- wwwwwwwwwwp
- imgAlignDown
- hhhhhhhhhhhhhhhhhhhhhh
- Panel3D2
- SSPanel#
- imgAutoSum
- wwwwwwwwwwp
- wwwwwwwwwwp
- Image23
- wwwwwwwwwwp
- imgSortDescending
- Image21
- imgSortAscending
- Image19
- Panel3D1
- SSPanel#
- imgNew
- wwwwwwwwwwp
- wwwwwwwwwwp
- imgClear
- Image17
- imgPaste
- Image15
- imgCopy
- wwwwwwwwwwp
- wwwwwwwwwwp
- Image13
- wwwwwwwwwwp
- imgCut
- Image11
- imgSpellCheck
- Image9
- imgPrint
- Image7
- imgSave
- Image5
- imgOpen
- Image3
- Image1
- wwwwwwwwwwp
- &File
- FileNew
- FileOpen
- &Open...
- FileClose
- &Close
- FileSave
- &Save
- FileSaveAs
- Save &As...
- FilePrintArea
- Print Ar&ea
- FilePrintTitles
- Print &Titles
- FilePrint
- &Print...
- FilePageSetup
- Pa&ge Setup...
- FilePrintSetup
- P&rint Setup...
- FileExit
- E&xit
- &Edit
- EditCut
- EditCopy
- &Copy
- % EditPaste
- &Paste
- InsertClear
- Clear
- EditInsert
- &Insert
- Delete
- &Delete
- EditCopyRight
- Copy &Right
- EditCopyDown
- Copy D&own
- EditFind
- &Find...
- EditGoto
- &Goto...
- EditRecalc
- R&ecalc
- EditCalculation
- C&alculation...
- DefineName
- Define &Name...
- &Sort...
- Format
- Forma&t
- FormatAlignment
- &Alignment...
- FormatFont
- &Font...
- FormatBorder
- &Border...
- FormatPattern
- &Pattern...
- FormatCellProtection
- &Cell Protection...
- FormatCustomNumber
- Custom &Number...
- sepFormat1
- FormatColumnWidth
- Column &Width...
- FormatRowHeight
- Row &Height...
- sepFormat2
- FormatColorPalette
- Color &Palette...
- C mnuObject
- O&bject
- mnuObject_Pattern
- &Pattern...
- mnuObject_LineStyle
- &Line Style...
- mnuObject_Name
- &Name...
- mnuObject_Options
- &Options...
- mnuObject_sep
- mnuObject_BringToFront
- Bring To &Front
- mnuObject_SendToBack
- Send To &Back
- &View
- L ViewAllow
- &Allow...
- ViewShow
- &Show...
- Window
- &Window
- WindowCascade
- &Cascade
- WindowTileHorizontal
- Tile &Horizontal
- WindowTileVertical
- Tile &Vertical
- WindowArrangeIcons
- &Arrange Icons
- DefineName_Click
- SSIsActiveForm
- ShowSSError
- SSDefinedNameDlg
- SSGetActiveHSS
- Delete_Click
- nRows
- MainFrame
- ActiveForm
- SelEndRow
- SelStartRow
- nCols!
- SelEndColJ
- SelStartColy
- nInsertType
- kShiftHorizontal
- SSMaxRowy
- kShiftCols
- SSMaxCol
- kShiftRows
- SSEditDelete
- EditCalculation_Click{
- SSCalculationDlg
- EditCopy_Click;
- C_Copy
- EditCopyDown_Click
- SSEditCopyDown2
- EditCopyRight_Click
- SSEditCopyRightL
- EditCut_Click^
- C_Cuti
- EditFind_Click
- FindDlg
- EditGoto_Clickc
- SSGotoDlg
- EditInsert_Click6
- SSEditInsert
- EditPaste_ClickH
- C_PasteU
- EditRecalc_Click
- SSRecalc
- FileClose_Click
- FileExit_Click)
- FileNew_Click
- C_NewL
- FileOpen_Clickf
- SSMDIOpenFiley
- FilePageSetup_Click
- SSFilePageSetupDlg
- FilePrint_ClickQ
- C_Print
- FilePrintArea_Click
- SSSetPrintAreaFromSelection
- FilePrintSetup_Click
- SSFilePrintSetupDlg6
- FilePrintTitles_Click
- SSSetPrintTitlesFromSelectionR
- FileSave_Click
- C_Save
- FileSaveAs_Click
- SSMDISaveAsFile
- FormatAlignment_Click
- SSFormatAlignmentDlg
- FormatBorder_Click
- SSFormatBorderDlg
- FormatCellProtection_Click"
- SSProtectionDlg7
- FormatColorPalette_ClickR
- SSColorPaletteDlgc
- FormatColumnWidth_Click
- SSColWidthDlg
- FormatCustomNumber_Click
- SSFormatNumberDlg
- FormatFont_Click
- SSFormatFontDlg
- FormatPattern_Click
- SSFormatPatternDlg
- FormatRowHeight_Click
- SSRowHeightDlgH
- imgAlignCenter_Click=
- ssError
- SSSetAlignmentm
- !imgAlignCenterAcrossColumns_Click
- imgAlignLeft_Click
- imgAlignRight_Click
- imgAutoSum_Click
- C_AutoSum
- imgClear_Clickm
- C_Clear
- imgCopy_Click
- imgCut_Click"
- imgFormatComma_Click|
- SSFormatFixedR
- imgFormatCurrency_Click
- SSFormatCurrency2
- imgFormatFraction_Click
- SSFormatFraction
- imgFormatPercent_Click
- SSFormatPercent
- imgFormatScientific_Click
- SSFormatScientific
- imgNew_Click
- imgOpen_Click
- imgPaste_Click&
- imgPrint_Click7
- imgSave_Click[
- imgSortAscending_Click:
- C_Sortv
- imgSortDescending_Click
- imgSpellCheck_Click
- InsertClear_Click
- MDIForm_Load
- Left>
- MDIForm_UnloadR
- Cancel
- Sort_Click
- SSSortDlg(
- ViewAllow_Click
- AllowOptions
- ViewShow_Click
- ShowOptionse
- WindowArrangeIcons_Click|
- WindowCascade_Click
- WindowTileHorizontal_Clickq
- WindowTileVertical_ClickV
- Panel3D1_DragDrop
- Source
- ControlF
- Image19_Click/
- Image2_Click
- imgAlignCenter_MouseUp
- Button
- Shift
- imgAlignCenter!
- Visibleq
- imgAlignCenter_MouseDown
- imgNew_MouseDown
- imgNew_MouseUp
- imgNew
- #imgAlignCenterAcrossColumns_MouseUp
- imgIf
- imgAlignCenterAcrossColumnsA
- %imgAlignCenterAcrossColumns_MouseDown[
- imgAlignLeft_MouseUpt
- imgAlignLeft
- imgAlignLeft_MouseDown
- imgAlignRight_MouseUpW
- imgAlignRight
- imgAlignRight_MouseDown
- imgAutoSum_MouseUp2
- imgAutoSum
- imgAutoSum_MouseDown
- imgClear_MouseUpl
- imgClear0
- imgClear_MouseDownE
- imgCopy_MouseUp
- imgCopya
- imgCopy_MouseDownu
- imgCut_MouseUp
- imgCut
- imgCut_MouseDown
- imgFormatComma_MouseUp
- imgFormatComma
- imgFormatComma_MouseDown
- imgFormatCurrency_MouseUp
- MouseUpR
- imgFormatCurrency6
- imgFormatCurrency_MouseDownj
- imgFormatFraction_MouseUpK
- imgFormatFraction
- imgFormatFraction_MouseDown
- imgFormatPercent_MouseUp
- imgFormatPercent
- imgFormatPercent_MouseDown
- imgFormatScientific_MouseUp
- imgFormatScientific"
- imgFormatScientific_MouseDownB
- imgOpen_MouseUp-
- imgOpenb
- imgOpen_MouseDownx
- imgPaste_MouseUp
- imgPaste
- imgPaste_MouseDown
- imgPrint_MouseUp
- imgPrint
- imgPrint_MouseDown
- imgSave_MouseUp
- imgSave
- imgSave_MouseDown/
- imgSortAscending_MouseUpL
- imgSortAscendinga
- imgSortAscending_MouseDown
- imgSortDescending_MouseUp
- imgSortDescending
- imgSortDescending_MouseDown_
- imgSpellCheck_MouseUp
- imgSpellCheck
- imgSpellCheck_MouseDownZ
- Sheet1_DblClick
- nRow)
- nColH
- Sheet1_SelChange
- SelChange
- ActiveForm_SelChangeh
- RCLabel_ClickC
- Combo1_Changek
- Screen
- FontCount
- List1
- Fonts
- cboFont
- cboFont_Change^
- SSSetFont
- sheet1
- ListIndex
- GetActiveHSS*
- oldFontIndex
- cboFont_LostFocus
- theFont
- theSize
- ifBold
- ifItalic9
- ifUnderline
- ifStrikeoutv
- ifOutline
- ifShadowE
- theColorW
- SSGetFont
- compare
- cboFont_ClickT
- Fontc
- FontName
- cboSize_Change
- cboSize}
- Textj
- cboSize_ClickF
- cboSize_KeyDown
- KeyCode
- KEY_RETURN
- cboSize_KeyPress
- KeyAsciiO
- Picture1
- Panel3D5_DragDropc
- imgBold_Click
- imgBold_MouseUp
- imgBold_MouseDown
- imgBold
- imgItalic_Click
- imgItalic_MouseUp
- imgItalic
- imgItalic_MouseDown.
- imgUnderline_Click
- imgUnderline
- imgUnderline_MouseDown
- imgUnderline_MouseUp?
- Image40_Click
- imgEditPoly_Click
- imgEditPoly.
- ePoly
- ifimgEditPolyC
- SSSetPolyEditMode
- imgFace_Click
- Index
- imgFace
- imgFace_MouseUp
- imgFace_MouseDown
- imgShape_Click
- theMode
- imgShape6
- kModeNormal$
- kModeLine
- kModeRectangle
- kModeOval
- kModeArcp
- kModePolygonz
- kModeCheckBox
- kModeDropDownc
- SSSetMode
- theShape
- imgShape_MouseUp
- imgShape_MouseDownN
- View_Click
- mnuObject_LineStyle_Clickb
- SSLineStyleDlg-
- mnuObject_Pattern_Click!
- frmObjectName
- mnuObject_Name_Click
- SSObjGetSelectionB
- myIDt
- Command1_Click
- frmCheckBoxOptions
- mnuObject_Options_Clicks
- frmDropDownOptions
- Height
- Width
- theType
- kSSObjCheckBox
- kSSObjDropDown.
- mnuObject_SendToBack_Click
- SSObjSendToBack
- mnuObject_BringToFront_Click
- SSObjBringToFront
- SSObjGetType
- SSObjNameDlg
- SSObjOptionsDlg
- ifOutine
- kPolyEditModeNormal
- kPolyEditModePoints
- &kPolyEditModePointskPolyEditModeNormal
- exitsub
- Image38_Click
- imgEditPolyMDS_ClickO
- MDIForm_LinkExecute
- CmdStr/
- MDIForm_Activate
- MDIForm_QueryUnload
- UnloadMode^
- imgAlign_Click
- imgAlign_MouseDown
- imgAlign
- imgAlign_MouseUp
- SSGetAlignment
- horizontal#
- wordWrapp
- vertical
- orient2
- kHAlignLeft
- kHAlignCenter?
- kHAlignRight
- kHAlignCenterAcrossCellse
- enabled
- doWhat
- imgFaceMDS_Click
- imgFaceDown_Click
- imgAlignDown_Click
- kHAlignGeneral
- Image3_Click
- Timer1_TimerO
- thisRowp
- thisColG
- lastCol
- lastRow
- theSheet^
- SSGetLastColq
- SSGetLastRow
- SSGetTypeRC
- SSSetActiveCell
- SSSetTopRow5
- SSSetLeftCol
- VTSpell1
- CheckText
- theSheetSS
- SSGetActiveSS
- VTSpell1_Misspelled
- VTSpell1_CheckStatus
- result
- ResultCode
- VTST_CHECK_CANCELED
- StopSpellCheck
- imgSpellCheck_MouseMove
- initialCol~
- initialRow
- startRow
- startCol
- endRow
- endCol
- doWholeSheet
- TopRow
- LeftCol
- SSGetLastColForRow
- CancelSpellCheck
- SSSetSelection
- cboFont_Click
- VTI Error #
- Set the current selection to the specified font.
- Default height is 10 and the other attributes
- are not set.h
- VTI Error #
- cboSize_Click
- VTI Error #
- Set the current selection to the specified size.
- The other attributes are not set.
- VTI Error #
- cboSize_KeyPress
- enter
- DefineName_Click
- Delete_Click
- EditCalculation_Click
- EditCopy_Click
- EditCopyDown_Click
- EditCopyRight_Click
- EditCut_Click
- EditFind_Click
- EditGoto_Click
- EditInsert_Click
- Unable to insert when entire sheet is selected
- EditPaste_Click
- EditRecalc_Click
- FileClose_Click
- FileExit_Click
- FileNew_Click
- FileOpen_Click
- FilePageSetup_Click
- FilePrint_Click
- FilePrintArea_Click
- FilePrintSetup_Click
- FilePrintTitles_Click
- FileSave_Click
- FileSaveAs_Click
- FormatAlignment_Click
- FormatBorder_Click
- FormatCellProtection_Click
- FormatColorPalette_Click
- FormatColumnWidth_Click
- FormatCustomNumber_Click
- FormatFont_Click
- FormatPattern_Click
- FormatRowHeight_Click
- imgAlign_Click
- Visual Tools Error #
- Can't Get Alignment.
- Visual Tools Error #
- Alignment Failed.
- imgAlignDown_Click
- Visual Tools Error #
- Can't Get Alignment.
- Visual Tools Error #
- Alignment Failed.
- imgAutoSum_MouseDown
- imgAutoSum_MouseUp
- imgClear_MouseDown
- imgClear_MouseUp
- imgCopy_MouseDown
- imgCopy_MouseUp
- imgCut_MouseDown
- imgCut_MouseUp
- imgEditPoly_Click
- Visual Tools Error #
- SSSetPolyEditMode Failed.
- imgEditPolyMDS_Click
- Visual Tools Error #
- SSSetPolyEditMode Failed.
- imgFace_Click
- VTI Error #
- SSGetFont Failed.
- VTI Error #
- SSSetFont Failed.
- imgFaceDown_Click
- VTI Error #
- SSGetFont Failed.
- VTI Error #
- SSSetFont Failed.
- imgFormatComma_MouseDown
- imgFormatComma_MouseUp
- Visual Tools Error #
- Format Comma Failed.
- imgFormatCurrency_MouseDown
- imgFormatCurrency_MouseUp
- Visual Tools Error #
- SSFormatCurrency2 Failed.
- imgFormatFraction_MouseDown
- imgFormatFraction_MouseUp
- Visual Tools Error #
- SSFormatFraction Failed.
- imgFormatPercent_MouseDown
- imgFormatPercent_MouseUp
- Visual Tools Error #
- SSFormatPercent Failed.
- imgFormatScientific_MouseDown
- imgFormatScientific_MouseUp
- Visual Tools Error #
- SSFormatScientific Failed.
- imgNew_MouseDown
- imgNew_MouseUp
- imgOpen_MouseDown
- imgOpen_MouseUp
- imgPaste_MouseDown
- imgPaste_MouseUp
- imgPrint_MouseDown
- imgPrint_MouseUp
- imgSave_MouseDown
- imgSave_MouseUp
- imgShape_MouseDown
- imgShape_MouseUp
- VTI Error #
- SSSetMode Failed.
- imgSortAscending_MouseDown
- imgSortAscending_MouseUp
- imgSortDescending_MouseDown
- imgSortDescending_MouseUp
- imgSpellCheck_MouseDown
- imgSpellCheck_MouseUp
- Dim ssError%, thisRow%, thisCol%, theType%r
- Dim initialCol%, initialRow%C
- Dim startRow%, startCol%, lastCol%, lastRow%
- Dim endRow%, endCol%C
- Dim doWholeSheet%
- Dim result%
- Dim theSheetSS&
- Dim msg$h
- ' This section implements the spell checking for the sheet. To use this, addo
- ' vtspell.vbx and vtspell.bas to this project, draw a VisualSpeller control
- ' on the MainFrame and uncomment the code below.r
- ' This works like the Excel spell checker - If there is a selection of more
- ' than one cell, it is checked, otherwise the entire sheet is checked.
- theSheetSS = SSGetActiveHSS()
- ' Cache the sheet handle for speedh
- initialRow = MainFrame.ActiveForm.SS.TopRow
- ' These mark the visible area of the sheete
- initialCol = MainFrame.ActiveForm.SS.LeftCol
- startRow = MainFrame.ActiveForm.SS.SelStartRow
- startCol = MainFrame.ActiveForm.SS.SelStartCol
- endRow = MainFrame.ActiveForm.SS.SelEndRowt
- endCol = MainFrame.ActiveForm.SS.SelEndColt
- doWholeSheet = Falsec
- Select Case endRows
- ' If one cell selected -> do whole sheett
- Case startRow
- If startCol = endCol Then
- startRow = 1
- startCol = 1
- ssError = SSGetLastRow(theSheetSS, lastRow)
- doWholeSheet = True
- End If
- ' If whole sheet selected -> do till last data enteredd
- Case 163844
- ssError = SSGetLastRow(theSheetSS, lastRow)
- doWholeSheet = True
- ' For case of one row selected
- ' Else do what user selectedd
- Case Else
- lastRow = endRown
- End Selecte
- For thisRow = startRow To lastRow
- ' If entire row selected -> check till last data enteredd
- If doWholeSheet Or endCol = 256 Thenn
- ssError = SSGetLastColForRow(theSheetSS, thisRow, lastCol)t
- Else
- lastCol = endColn
- End If
- For thisCol = startCol To lastCol
- ssError = SSGetTypeRC(theSheetSS, thisRow, thisCol, theType)T
- If theType = 2 Then
- ssError = SSSetActiveCell(theSheetSS, thisRow, thisCol)
- ' Put the cell to check
- ssError = SSSetTopRow(theSheetSS, thisRow)
- ssError = SSSetLeftCol(theSheetSS, thisCol)
- VTSpell1.CheckText = MainFrame.ActiveForm.SS.Text
- If VTSpell1.ResultCode = -3 Then=
- GoTo CancelSpellCheck
- End If
- MainFrame.ActiveForm.SS.Text = VTSpell1.CheckText
- End If
- Next thisColl
- Next thisRowl
- CancelSpellCheck:
- ' Return visible portion of sheet to where we started.T
- ssError = SSSetTopRow(theSheetSS, initialRow)
- ssError = SSSetLeftCol(theSheetSS, initialCol)
- ssError = SSSetSelection(theSheetSS, initialRow, initialCol, initialRow, initialCol)d
- MainFrame.ActiveForm.SS.SetFocust
- See the MainFrame.imgSpellCheck MouseUp event for information.
- about using VisualTools' VisualSpeller with this program.
- InsertClear_Click
- MDIForm_Load
- Fill ComboBox with available fonts
- Now set the default sizes for the size cbon
- MDIForm_Unload
- mnuObject_BringToFront_Click
- mnuObject_LineStyle_Click
- Visual Tools Error #
- Line Style Dialog Failed.
- mnuObject_Name_Click
- Name Dialog Not Available.
- mnuObject_Options_Click
- Options Dialog Not Available.
- mnuObject_Pattern_Click
- Visual Tools Error #
- Pattern Dialog Failed.
- mnuObject_SendToBack_Click
- Sort_Click
- Timer1_Timer
- This raises all buttons when the last sheet is closed.S
- Set the timer interval so that the user won't noticed
- any delay during normal operations.
- ViewAllow_Click
- ViewShow_Click
- WindowArrangeIcons_Click
- WindowCascade_Click
- WindowTileHorizontal_Click
- WindowTileVertical_Click
-